<script>on mouseUpif the optionKey is down thenput return & "Enter some sample text here..." into bg fld "example"elseput return & "Look to the skies!" into bg fld "example"end ifend mouseUp</script>
</part>
<part>
<id>4</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>13</left>
<top>56</top>
<right>242</right>
<bottom>152</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Optima</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>Possibilities</name>
<script></script>
</part>
<content>
<layer>card</layer>
<id>4</id>
<text><span class="style2">ome possibilities...</span><span class="style1">These scripts can be put into a menu command for user action, or combined into pop-up fields, or act from a "preferences" type card in your stack...The original implementation of these concepts were in my own address stack and in a stack of HyperCard columns that may or not become some kind of book someday. In the latter, the font selection and changing is handled via menu commands...Experiment! – Bill</span></text>
<script>on mouseUplock screenhide cd fld "about" of cd "startUp"unlock screen with dissolve-- wait 20lock screenput return & " ChangeStackFont" & return && " by Bill Underwood" ¬& return && " January 5th, 1992." into bg fld exampleunlock screen with dissolveend mouseUp</script>
</part>
<part>
<id>18</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>13</left>
<top>56</top>
<right>242</right>
<bottom>152</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Optima</font>
<textSize>14</textSize>
<textStyle>plain</textStyle>
<textHeight>18</textHeight>
<name>alphabet</name>
<script></script>
</part>
<part>
<id>16</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>213</left>
<top>194</top>
<right>246</right>
<bottom>225</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>19678</icon>
<textAlign>center</textAlign>
<font>Clearface Regular</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>About</name>
<script>on mouseUplock screenshow cd fld "about"set the scroll of cd fld about to 0unlock screen with dissolveend mouseUp</script>
</part>
<part>
<id>1</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>13</left>
<top>55</top>
<right>242</right>
<bottom>239</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Monaco</font>
<textSize>9</textSize>
<textStyle>plain</textStyle>
<textHeight>12</textHeight>
<name>thisFont</name>
<script>on mouseUpglobal userFontselect the clickLineput the selection into userFont -- which is used by changeStackFontlock screenhide meset the scroll of me to 0unlock screenchangeStackFont -- at stack levelend mouseUp</script>
</part>
<part>
<id>4</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>13</left>
<top>270</top>
<right>133</right>
<bottom>288</bottom>
</rect>
<style>rectangle</style>
<showName> <true /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Clearface Regular</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>And then, Zen</name>
<script>on mouseUplock screenhide cd fld "about" of cd "startUp"unlock screen with dissolve-- wait 20lock screenput "Zen is not religion, creed, guide, nor practice. And it has little to do with motorcycle maintenence or ResEdit, either. Nyuk, nyuk." ¬into bg fld "example"unlock screen with dissolveend mouseUp</script>
</part>
<part>
<id>19</id>
<type>field</type>
<visible> <false /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <false /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>11</left>
<top>56</top>
<right>244</right>
<bottom>239</bottom>
</rect>
<style>scrolling</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <true /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>left</textAlign>
<font>Optima</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<textHeight>16</textHeight>
<name>about</name>
<script>on mouseUplock screenhide meunlock screen with dissolveend mouseUp</script>
</part>
<content>
<layer>background</layer>
<id>11</id>
<text>§ This is a sample of 10 pt. text § </text>
</content>
<content>
<layer>card</layer>
<id>18</id>
<text>Aa Bb Cc Dd Ee Ff Gg Hh Ii Jj Kk Ll Mm Nn Oo Pp Qq Rr Ss Tt Uu Vv Ww Xx Yy Zz - – —0123456789 + = < > ~ ∞! ? * ¯ ˘ ` ^ ≤ ≥ @ # $ % & |¡ ™ £ ¢ § ¶ • ° ª º \ / ( ) [ ] { }</text>
</content>
<content>
<layer>card</layer>
<id>19</id>
<text><span class="style2">NTRO</span><span class="style1">This stack is a by-product of some scripted font manipulation techniques I worked up for a couple of different stacks I've recently created.It does two things:First - it counts your installed fonts, and allows you change this stack's font and font styles, so you can view/browse your fonts.Second - the idea here is to give the user a bit of flexibility in how a stack is displayed, in that the functionality of this stack can be moved to other stacks if you follow the three steps noted below.Also, feel free to type sample text into the unlocked field. The buttons below it will refill that field with sample text as you click on them.</span><span class="style2">IN THE BEGINNING...</span><span class="style1">Thanks to Lynda Burgiss of the Catawba Valley Byte 32 Macintosh User Group in Hickory, NC, who inspired the idea for this stack's techniques, so a user would not be limited to a default font.</span><span class="style2">USE IT IN YOUR STACK!</span><span class="style1">To move the functionality of this stack into another stack, copy these three things to your stack:(1) The "Change Stack Font" button; (2) The scrolling font list field that appears after you click the ChangeStackFont button (it is a card field named "thisFont") and, (3) The scripts noted at the stack level.•Note: You'll have to adjust the scripts a bit to remove (or accomodate) my scripted references to information fields in this stack, which are updated when you change fonts (or make your own fields, name them, and call them from the script accordingly.)</span><span class="style2">HOW IT WORKS</span><span class="style1">Once installed, these scripts will go through all cards in your stack, and change all field and/or button fonts to what you specify. It works in three parts:</span><span class="style2">First,</span><span class="style1"> the "ChangeStackFont" card button gets your installed fonts, and puts them into a hidden scrolling field (named "thisFont") which is then presented for you to select the font you want. (Note that this button, in this stack, will rename itself to whatever this stack's name is </span><span class="style3">on openStack</span><span class="style1">.)</span><span class="style2">Second,</span><span class="style1"> the font you selected from the scrolling field is stored into the global variable "userFont" and the stack-level handler </span><span class="style3">changeStackFont</span><span class="style1"> is called.</span><span class="style2">Third,</span><span class="style1"> </span><span class="style3">changeStackFont</span><span class="style1"> asks if you want to change buttons, fields, or both. Depending on the choice, one of three other stack-level handlers are called: </span><span class="style3">changeButtonFonts</span><span class="style1"> or</span><span class="style3"> changeFieldFonts</span><span class="style1"> or </span><span class="style3">changeAllFonts</span><span class="style1">.And that's it.</span><span class="style2">THE FUTURE:</span><span class="style1">Someday (perhaps) I might update changeStackFont into a single object that can be more easily moved to other stacks.In the meantime, if you like this stack, well...great! Drop me a line and let me know how you've used it!ChangeStackFont by Bill Underwood, 1/5/92 AppleLink: UNDERWOOD.B AOL: ZenZa (or) QuickTime</span></text>
</content>
<content>
<layer>background</layer>
<id>13</id>
<text>Buttons are: 12 pt Clearface Regular</text>
</content>
<content>
<layer>background</layer>
<id>14</id>
<text>Other fields are: 14, 12 and 10 pt Optima</text>
(CDRM1080320)(1993).iso/FILES/HYP/C-D/ChangeStackFont 1.11.cpt/ChangeStackFont 1.11/BMAP_4821.png){kind=link}
(CDRM1080320)(1993).iso/FILES/HYP/C-D/ChangeStackFont 1.11.cpt/ChangeStackFont 1.11/PATs.png){kind=link}